home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New Farm Program.cpt / New Farm Program / card_3179.txt < prev    next >
Text File  |  1988-02-06  |  4KB  |  168 lines

  1. -- card: 3179 from stack: in
  2. -- bmap block id: 5410
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: 3rd
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put line 1 of field "e1" of card "1st" into card field "a3"
  9.   set numberformat to "00.00"
  10.   put line 1 of card field "a3" * line 1 of card field "g1" of card "1st" into it
  11.   put it * line 1 of card field "def" of card "1st" into x
  12.   put x * card field "h1" of card "1st" into y
  13.   put y / "100" into it
  14.   put it into line 1 of card field "c3"
  15.   get line 1 of field "a1" of card "1st"
  16.   divide it by 10
  17.   put it into card field "e3"
  18.   get line 1 of card field "g1" of card "1st"
  19.   multiply it by line 1 of card field "e3"
  20.   multiply it by card field "pld" of card "1st"
  21.   multiply it by card field "h1" of card "1st"
  22.   divide it by 100
  23.   put it into card field "f3"
  24.   put card field "f3" + card field "c3" into card field "g3"
  25.   put card field "g3" *.40 into card field "h3"
  26. end opencard
  27.  
  28.  
  29.  
  30. -- part 17 (field)
  31. -- low flags: 01
  32. -- high flags: 0001
  33. -- rect: left=312 top=162 right=178 bottom=375
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: 
  42.  
  43.  
  44. -- part 9 (field)
  45. -- low flags: 01
  46. -- high flags: 4000
  47. -- rect: left=339 top=73 right=90 bottom=412
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 3
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: a3
  56.  
  57.  
  58. -- part 12 (field)
  59. -- low flags: 01
  60. -- high flags: 4000
  61. -- rect: left=339 top=107 right=124 bottom=413
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 3
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: c3
  70.  
  71.  
  72. -- part 15 (field)
  73. -- low flags: 01
  74. -- high flags: 4000
  75. -- rect: left=338 top=218 right=234 bottom=410
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: g3
  84.  
  85.  
  86. -- part 14 (field)
  87. -- low flags: 01
  88. -- high flags: 4001
  89. -- rect: left=339 top=143 right=159 bottom=389
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 3
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: e3
  98.  
  99.  
  100. -- part 13 (field)
  101. -- low flags: 01
  102. -- high flags: 4000
  103. -- rect: left=338 top=180 right=196 bottom=409
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: f3
  112.  
  113.  
  114. -- part 16 (field)
  115. -- low flags: 01
  116. -- high flags: 4000
  117. -- rect: left=338 top=258 right=275 bottom=414
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: h3
  126.  
  127.  
  128. -- part 18 (field)
  129. -- low flags: 00
  130. -- high flags: 0000
  131. -- rect: left=293 top=39 right=58 bottom=348
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: name
  140.  
  141.  
  142. -- part contents for card part 9
  143. ----- text -----
  144. 56.00
  145.  
  146. -- part contents for card part 12
  147. ----- text -----
  148. 4174.80
  149.  
  150. -- part contents for card part 14
  151. ----- text -----
  152. 08.00
  153.  
  154. -- part contents for card part 13
  155. ----- text -----
  156. 937.20
  157.  
  158. -- part contents for card part 15
  159. ----- text -----
  160. 5112.00
  161.  
  162. -- part contents for card part 16
  163. ----- text -----
  164. 2044.80
  165.  
  166. -- part contents for card part 18
  167. ----- text -----
  168. Milo